%@LANGUAGE="VBSCRIPT"%> <% Dim rec1__MMColParam rec1__MMColParam = "1" if(Request.QueryString("id") <> "") then rec1__MMColParam = Request.QueryString("id") %> <% set rec1 = Server.CreateObject("ADODB.Recordset") rec1.ActiveConnection = "dsn=complain;" rec1.Source = "SELECT * FROM " & replace(Request.Querystring("Table"), "'", "''") & " WHERE id = " + Replace(rec1__MMColParam, "'", "''") + "" rec1.CursorType = 0 rec1.CursorLocation = 2 rec1.LockType = 3 rec1.Open rec1_numRows = 0 %>
![]() |
![]() |
|
MORE
>>>
MORE
>>>
Visit Our Sponsors:
|
|